﻿Public Class Puesto

    Dim m_codigo As Integer
    Dim m_nombre As String
    Dim m_descripcion As String
    Dim m_nivel As Integer
    Dim m_tipoSalario As Integer
    Dim m_salario As Double

    Public Sub New(ByVal p_codigo As Integer, ByVal p_nombre As String, ByVal p_descripcion As String, _
            ByVal p_nivel As Integer, ByVal p_tipoSalario As Integer, ByVal p_salario As Double)
        codigo = p_codigo
        nombre = p_nombre
        descripcion = p_descripcion
        nivel = p_nivel
        tipoSalario = p_tipoSalario
        salario = p_salario
    End Sub


    Public Sub New(ByVal p_codigo As Integer, ByVal p_nombre As String, ByVal p_descripcion As String, _
                       ByVal p_tipoSalario As Integer, ByVal p_salario As Double)
        codigo = p_codigo
        nombre = p_nombre
        descripcion = p_descripcion
        tipoSalario = p_tipoSalario
        salario = p_salario
    End Sub

    ''' <summary>
    ''' Propiedad codigo
    ''' </summary>
    ''' <returns>m_codigo
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property codigo() As Integer
        Get
            Return m_codigo
        End Get
        Set(ByVal p_codigo As Integer)
            m_codigo = p_codigo
        End Set
    End Property

    ''' <summary>
    ''' Propiedad nombre
    ''' </summary>
    ''' <returns>m_nombre
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property nombre() As String
        Get
            Return m_nombre
        End Get
        Set(ByVal p_nombre As String)
            m_nombre = p_nombre
        End Set
    End Property

    ''' <summary>
    ''' Propiedad descripcion
    ''' </summary>
    ''' <returns>m_descripcion
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property descripcion() As String
        Get
            Return m_descripcion
        End Get
        Set(ByVal p_descipcion As String)
            m_descripcion = p_descipcion
        End Set
    End Property

    ''' <summary>
    ''' Propiedad nivel
    ''' </summary>
    ''' <returns>m_nivel
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property nivel() As Integer
        Get
            Return m_nivel
        End Get
        Set(ByVal p_nivel As Integer)
            m_nivel = p_nivel
        End Set
    End Property

    ''' <summary>
    ''' Propiedad tipoSalario
    ''' </summary>
    ''' <returns>m_tipoSalario
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property tipoSalario() As Integer
        Get
            Return m_tipoSalario
        End Get
        Set(ByVal p_tipoSalario As Integer)
            m_tipoSalario = p_tipoSalario
        End Set
    End Property

    ''' <summary>
    ''' Propiedad salario
    ''' </summary>
    ''' <returns>m_salario
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Property salario() As Integer
        Get
            Return m_salario
        End Get
        Set(ByVal p_salario As Integer)
            m_salario = p_salario
        End Set
    End Property

    ''' <summary>
    ''' Retorna un hash con los datos de los miembros.
    ''' </summary>
    ''' <returns>hashtable
    ''' </returns>
    ''' <remarks>Creado por: Manuel Chaves inicio:14/6/2010 mod:22/06/210</remarks>
    Public Function toHash() As Hashtable
        '
        Dim ht As New Hashtable
        ht("codigo") = m_codigo
        ht("nombre") = m_nombre
        ht("descripcion") = m_descripcion
        ht("nivel") = m_nivel
        ht("tipoSalario") = m_tipoSalario
        ht("salario") = m_salario
        '
        Return ht
        '
    End Function

End Class
